home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 34.zip / BS1 part 34 / GFA basic training.adf / Sound / ALARM.LST < prev    next >
File List  |  1989-06-01  |  430b  |  29 lines
  1. ' ALARM
  2. @init
  3. ' Voreinstellungen:
  4. b|=64                   ! Wellenlänge Pulswelle oben
  5. b2|=128                 ! Wellenlänge Pulswelle unten
  6. '
  7. @puls
  8. '
  9. REPEAT
  10.   SOUND 100,2,255,0
  11.   SOUND 1,1,1,1
  12. UNTIL MOUSEK
  13. '
  14. PROCEDURE init
  15.   DIM wert&(255)
  16. RETURN
  17. PROCEDURE puls
  18.   FOR i%=0 TO b1|
  19.     wert&(i%)=-127
  20.   NEXT i%
  21.   FOR i%=b| TO b2|
  22.     wert&(i%)=127
  23.   NEXT i%
  24.   FOR i%=b2| TO 255
  25.     wert&(i%)=-127
  26.   NEXT i%
  27.   WAVE 0,wert&()
  28. RETURN
  29.